Block Builder
By Ed Horger


Before running this program, type in S=0. This is the block counter and if 
you've used up all available memory, you can dump to tape, break from the 
program, reset S to 0, (zero), and continue on.

MENU: Select 0 to 3

(0) COLOR SET: 4 colors appear on screen, select color (0-3) and JY(1) advances 
value. Press TR(1) to set and to set the others. Any key other than 0-3 will 
exit to menu.

(1) BLOCK BUILDER: Will first ask for address of beginning of storage area. 
Type 66B0 for 4K. No "!" is needed. # of blocks can be any number limited by 
memory available. A "0" here will exit to menu. WIDTH and HEIGHT can be any 
size, even or odd. The amount of memory will then flash on the screen for a 
second. If 0 or less free memory is left, press 9, (exit), select DUMP TO TAPE, 
BREAK, S=0; RUN, then continue. Keys 0-3 represent the pixel values selected 
with COLOR SET. The cursor, (= to FA) is at the next pixel position and 
advances accordingly. 9 will exit to menu, 4-8 will back up to beginning of 
current line if you made a mistake. Make sure the line is correct before the 
last pixel of that line is entered as it advances to the next line and cannot 
back up. Block is then snapped into memory along with clear border. WIDTH & 
HEIGHT of next block is asked for, if done then the menu reappears.

(3) SHOW BLOCK: 9 for exit, otherwise any key, then the decimal value for the 
appropriate block on the list. Keep track of these values so you know how far 
apart they are when you later add them to your program. The selected block will 
be shown and CHANGE? will appear. Press SHIFT Y to change. Only that block will 
be affected, otherwise any key to menu. Again, 9 will exit CHANGE routine.

(2) DMP TO TAPE: Start recorder on record when you select this. You have 10 
seconds to do so. Only the graphic blocks will be saved. Done will appear then 
back to menu.

To add your saved snaps to your program, PRINT%(!6C82) for end of BASIC 
program, then :INPUT%(NNNN) to load your graphics. NNNN is the value at !6C82.

Good luck


Ed Horger
1250 Dickens
Troy, Mich. 48084